home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / BlondesBrunettes.dxr / Internal_8_foundation cards.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  3.0 KB  |  70 lines
  1. global foundation, stock, basecard, equal, hotcard
  2.  
  3. on beginSprite me
  4.   sprite(me.spriteNum).visible = 1
  5.   foundation.addProp(makesymbol(me.spriteNum), new(script("foundation object"), []))
  6.   if foundation.count <= 1 then
  7.     sprite(me.spriteNum).member = stock.cards[1].rank & "_" & stock.cards[1].suit
  8.     stock.cards.deleteAt(1)
  9.     foundation[makesymbol(me.spriteNum)].addCard(new(script("card"), me.spriteNum))
  10.     basecard = foundation[makesymbol(me.spriteNum)].getlastcard().rankvalue
  11.   else
  12.     sprite(me.spriteNum).member = "block"
  13.   end if
  14. end
  15.  
  16. on mouseDown me
  17.   if sprite(me.spriteNum).visible = 1 then
  18.     if member(sprite(me.spriteNum).memberNum).name <> "block" then
  19.       puppetSound(3, "pickcard")
  20.       sprite(me.spriteNum).moveableSprite = 1
  21.       sprite(me.spriteNum).locZ = me.spriteNum + 1000
  22.       sprite(me.spriteNum).loc = the mouseLoc
  23.       if foundation[makesymbol(me.spriteNum)].cards.count > 1 then
  24.         sprite(17).loc = foundation[makesymbol(me.spriteNum)].cards[foundation[makesymbol(me.spriteNum)].cards.count].location
  25.         sprite(17).member = foundation[makesymbol(me.spriteNum)].cards[foundation[makesymbol(me.spriteNum)].cards.count - 1].membername
  26.         sprite(17).visible = 1
  27.       else
  28.         sprite(17).visible = 0
  29.       end if
  30.     end if
  31.   end if
  32. end
  33.  
  34. on mouseUp me
  35.   if sprite(me.spriteNum).moveableSprite = 1 then
  36.     if (equal = 1) and (hotcard <> 0) then
  37.       if (hotcard >= 28) and (hotcard <= 35) and (hotcard <> me.spriteNum) then
  38.         puppetSound(3, "pickcard")
  39.         sprite(me.spriteNum).moveableSprite = 0
  40.         sprite(me.spriteNum).visible = 0
  41.         sprite(me.spriteNum).loc = foundation[makesymbol(me.spriteNum)].cards[foundation[makesymbol(me.spriteNum)].cards.count].location
  42.         sprite(me.spriteNum).locZ = me.spriteNum
  43.         sprite(hotcard).member = sprite(the clickOn).member
  44.         foundation[makesymbol(hotcard)].addCard(new(script("card"), hotcard))
  45.         foundation[makesymbol(me.spriteNum)].cards.deleteAt(foundation[makesymbol(me.spriteNum)].cards.count)
  46.         if foundation[makesymbol(me.spriteNum)].cards.count > 0 then
  47.           sprite(me.spriteNum).visible = 1
  48.           sprite(me.spriteNum).member = foundation[makesymbol(me.spriteNum)].cards[foundation[makesymbol(me.spriteNum)].cards.count].membername
  49.         else
  50.           sprite(me.spriteNum).visible = 1
  51.           sprite(me.spriteNum).member = "block"
  52.         end if
  53.       else
  54.         if sprite(me.spriteNum).moveableSprite = 1 then
  55.           puppetSound(3, "dropcard")
  56.           sprite(me.spriteNum).moveableSprite = 0
  57.           sprite(me.spriteNum).loc = foundation[makesymbol(me.spriteNum)].getlastcard().location
  58.         end if
  59.       end if
  60.     else
  61.       if sprite(me.spriteNum).moveableSprite = 1 then
  62.         puppetSound(3, "dropcard")
  63.         sprite(me.spriteNum).moveableSprite = 0
  64.         sprite(me.spriteNum).loc = foundation[makesymbol(me.spriteNum)].getlastcard().location
  65.         sprite(me.spriteNum).locZ = me.spriteNum
  66.       end if
  67.     end if
  68.   end if
  69. end
  70.